home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 5 / Amiga Plus Sonderheft 1996 #5.iso / programme / imageengineerv3.0 / arexx / addnewicon.rexx next >
OS/2 REXX Batch file  |  1986-03-05  |  2KB  |  85 lines
  1. /* Image Engineer ARexx macro script           */
  2. /* by Simon Edwards                            */
  3. /* 1/4/96                                      */
  4. /* AddNewIcon V1.0 (same as MakeIcon except    */
  5. /* uses NewIcon.palette.                       */
  6. /*                                             */
  7.  
  8. Options results
  9. signal on error            /* Setup a place for errors to go */
  10.  
  11. 'GET_FILES "Choose Images to add icons to" "Add Icons" "sys:"'
  12. MyFileList=RESULT
  13.  
  14.             /* Keep going till we run out of files */
  15. do while MyFileList~=""
  16.             /* Get the next file name */
  17. parse var MyFileList MyFile ';' MyFileList
  18.  
  19. CALL AddIcon
  20.  
  21. end
  22. exit
  23.  
  24.  
  25. AddIcon:
  26.     'OPEN "'||MyFile||'" COLOUR'
  27.     InputProject=RESULT
  28.  
  29.     PROJECT_INFO InputProject WIDTH
  30.     ImageWidth=RESULT
  31.     PROJECT_INFO InputProject HEIGHT
  32.     ImageHeight=RESULT
  33.     
  34.     if ImageWidth/ImageHeight>(36.0/40.0) then
  35.         do
  36.         NewWidth=36
  37.         NewHeight=ImageHeight*36.0/ImageWidth
  38.         end
  39.     else
  40.         do
  41.         NewWidth=ImageWidth*40.0/ImageHeight
  42.         NewHeight=40
  43.         end
  44.  
  45.     SCALE InputProject NewWidth NewHeight BEST
  46.     icon=RESULT
  47.     'PALETTE_LOAD' icon '"IE:palettes/newicon.palette"'
  48.  
  49.     RENDER_DEPTH icon 16
  50.     RENDER_COLOURS icon 16
  51.     RENDER_DEVICE icon AMIGA
  52.     RENDER_DITHER icon NONE
  53.     RENDER_PALETTE icon LOCK
  54.     RENDER icon
  55.  
  56.     SAVE_CLIP icon
  57.  
  58.     CLOSE icon
  59.  
  60.     address COMMAND 'copy env:sys/def_picture.info "'||MyFile||'.info"'
  61.     address COMMAND 'injectbrush "'||MyFile||'.info" CLIPS:0 CLIPS:0 FORCE'
  62.  
  63.     CLOSE InputProject
  64.  
  65.     return
  66.  
  67.  
  68. /*******************************************************************/
  69. /* This is where control goes when an error code is returned by IE */
  70. /* It puts up a message saying what happened and on which line     */
  71. /*******************************************************************/
  72. error:
  73. if RC=5 then do            /* Did the user just cancel us? */
  74.     IE_TO_FRONT
  75.     LAST_ERROR
  76.     'REQUEST "'||RESULT||'"'
  77.     exit
  78. end
  79. else do
  80.     IE_TO_FRONT
  81.     LAST_ERROR
  82.     'REQUEST "Error detected!!!'||D2C(10)||'Image Engineer error message is as follows'||D2C(10)||result||D2C(10)||'Script failed on line '||SIGL||'"' 'Doh!'
  83.     exit
  84. end
  85.